home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_5309.txt < prev    next >
Text File  |  1988-09-28  |  7KB  |  321 lines
  1. -- card: 5309 from stack: in
  2. -- bmap block id: 5577
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Email menu
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     put recvUpTo(port,return,2,false,false) into newIn
  13.     put newIn after reslts
  14.     if the length of reslts >0 then put empty into the reslts
  15.   end if
  16. end idle
  17.  
  18. on opencard
  19.   global lastday
  20.   put lastday into field "laston"
  21.   put the abbrev date into field "now"
  22. end opencard
  23.  
  24.  
  25. -- part 1 (button)
  26. -- low flags: 00
  27. -- high flags: 8004
  28. -- rect: left=197 top=114 right=136 bottom=297
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: Private Mail
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   global port
  40.   sendSPort port,false,"p"&return
  41.   go card "Mail Functions"
  42.   put "Private Mail" into card field "Section"
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 4 (button)
  48. -- low flags: 00
  49. -- high flags: 8004
  50. -- rect: left=198 top=161 right=183 bottom=298
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Software
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   global port
  62.   sendSPort port,false,"s"&return
  63.   go card "Mail Functions"
  64.   put "Software Forum" into card field "Section"
  65.  
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 6 (button)
  71. -- low flags: 00
  72. -- high flags: 8004
  73. -- rect: left=99 top=137 right=159 bottom=199
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Hardware
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   global port
  85.   sendSPort port,false,"h"&return
  86.   go card "Mail Functions"
  87.   put "Hardware Forum" into card field "Section"
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 7 (button)
  93. -- low flags: 00
  94. -- high flags: 8004
  95. -- rect: left=297 top=137 right=159 bottom=397
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Open
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   global port
  107.   sendSPort port,false,"o"&return
  108.   go card "Mail Functions"
  109.   put "Open Forum" into card field "Section"
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 8 (button)
  115. -- low flags: 00
  116. -- high flags: 8004
  117. -- rect: left=198 top=137 right=159 bottom=298
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: PD Request
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   global port
  129.   sendSPort port,false,"a"&return
  130.   go card "Mail Functions"
  131.   put "PD Disk Request" into card field "Section"
  132.  
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 9 (button)
  138. -- low flags: 00
  139. -- high flags: 8004
  140. -- rect: left=375 top=281 right=303 bottom=475
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Main Menu
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   global port
  152.   sendSPort port,false,"e"&return
  153.   go card "Main Menu"
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 12 (button)
  159. -- low flags: 00
  160. -- high flags: 8004
  161. -- rect: left=375 top=305 right=327 bottom=475
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Log off
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   global port
  173.   sendSPort port,false,"g"&return
  174.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  175.   if it="Yes, bye" then
  176.     sendsPort port,false,"y"&return
  177.     go card 1
  178.   else if it="NO WAIT!!" then
  179.     sendSPort port,false,"n"&return
  180.     go card "Main Menu"
  181.   end if
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 13 (button)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=54 top=31 right=68 bottom=90
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 21060 / 21060
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: New Button
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   show card field "about Mystery"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 14 (field)
  206. -- low flags: 81
  207. -- high flags: 0004
  208. -- rect: left=136 top=112 right=188 bottom=372
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 3
  213. -- text size: 9
  214. -- style flags: 0
  215. -- line height: 12
  216. -- part name: about mystery
  217. ----- HyperTalk script -----
  218. on mouseup
  219.   hide card field "about mystery"
  220. end mouseup
  221.  
  222.  
  223. -- part 15 (button)
  224. -- low flags: 00
  225. -- high flags: 8003
  226. -- rect: left=198 top=215 right=237 bottom=298
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: Scan
  235. ----- HyperTalk script -----
  236. on mousedown
  237.   global port
  238.   put the mouseloc into myPlace
  239.   put item 1 of myPlace into horiz
  240.   put item 2 of myPlace - 10 into vert
  241.   get PopUpMenu("All;Go back days;Quit;Use Search Strings;Start", 3, vert, horiz)
  242.   put recvUpTo(port,return,1,false,false) into newIn
  243.   if it = 1 then
  244.     sendSPort port,false,"l"&return
  245.     wait 10
  246.     sendSPort port,false,"a"&return
  247.     push card
  248.     go card "Scan"
  249.   else if it = 2 then
  250.     sendSPort port,false,"l"&return
  251.     wait 10
  252.     push card
  253.     set lockscreen to true
  254.     go card "Main Menu"
  255.     get card field 1 of card "Main Menu"
  256.     put it into junk
  257.     go card "days"
  258.     put junk into card field 1 of card "Days"
  259.     set lockscreen to false
  260.   else if it = 3 then pass mousedown
  261.   else if it = 4 then
  262.     sendSPort port,false,"l"&return
  263.     wait 10
  264.     sendSPort port,false,"u"&return
  265.     wait 10
  266.     answer "Search for‚Ķ" with "Author" or "Message Title" or "Receiver"
  267.     if it = "Author" then sendsPort port,false,"a"&return
  268.     else if it = "Message title" then sendSPort port,false,"m"&return
  269.     else if it = "Receiver" then sendSPort port,false,"r"&return
  270.     ask "Search "&it&" for what string?"
  271.     if it<> empty then
  272.       push card
  273.       sendSPort port,false,it&return
  274.       sendSport port,false,"s"&return
  275.       go card "Scan"
  276.     end if
  277.   else if it= 5 then
  278.     sendSPort port,false,"l"&return
  279.     wait 10
  280.     SendSPort port,false,"s"&return
  281.     push card
  282.     go card "Scan"
  283.   end if
  284. end mousedown
  285.  
  286.  
  287.  
  288. -- part contents for background part 4
  289. ----- text -----
  290. Sun, Sep 25, 1988
  291.  
  292. -- part contents for background part 1
  293. ----- text -----
  294.  
  295.  
  296.  
  297.  
  298.  
  299. Sat, Jul 2, 1988, 8:06 PM
  300.  
  301. -- part contents for background part 5
  302. ----- text -----
  303. 10:16 PM
  304.  
  305. -- part contents for card part 14
  306. ----- text -----
  307. You are currently using the Mystery Message
  308. Base Manager 1.902 written by Robert Thurman.
  309.  
  310. Mystery 1.902 was written in Lightspeed Pascal.
  311.  
  312. Pascal ...  The language of the gods and me too.
  313.    [P]rivate Electronic Mail
  314.    [H]ardware Forum Menu
  315.    [P]rivate Electronic Mail
  316.    [H]ardware Forum Menu
  317.  
  318.  
  319. -- part contents for background part 3
  320. ----- text -----
  321. Sat, Sep 24, 1988, 12:06 AM